home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 1 / Gold Medal Software Volume 1 (Gold Medal) (1994).iso / prog / tpwprog6.arj / LANGUAGE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-07-02  |  1.3 KB  |  62 lines
  1. { Language.pas -- Multilanguage menus }
  2.  
  3. program Language;
  4.  
  5. {$R english.res}
  6.  
  7. uses WinTypes, WinProcs, WObjects, Strings;
  8.  
  9. const
  10.  
  11.   id_Menu = 100;    { Menu resource ID }
  12.  
  13. type
  14.  
  15.   LanguageApplication = object(TApplication)
  16.     procedure InitMainWindow; virtual;
  17.   end;
  18.  
  19.   PLanguageWindow = ^LanguageWindow;
  20.   LanguageWindow = object(TWindow)
  21.     constructor Init(AParent: PWindowsObject; ATitle: PChar);
  22.   end;
  23.  
  24.  
  25. { LanguageApplication }
  26.  
  27. {- Initialize LanguageApplication object's window }
  28. procedure LanguageApplication.InitMainWindow;
  29. var
  30.   Buffer: array[0 .. 65] of Char;
  31. begin
  32.   if LoadString(HInstance, 0, Buffer, 65) = 0 then
  33.     StrCopy(Buffer, 'Default Window Title');
  34.   MainWindow := New(PLanguageWindow, Init(nil, Buffer))
  35. end;
  36.  
  37.  
  38. { LanguageWindow }
  39.  
  40. {- Construct LanguageWindow object }
  41. constructor LanguageWindow.Init(AParent: PWindowsObject; ATitle: PChar);
  42. begin
  43.   TWindow.Init(AParent, ATitle);
  44.   Attr.Menu := LoadMenu(HInstance, PChar(id_Menu));
  45. end;
  46.  
  47. var
  48.  
  49.   LanguageApp: LanguageApplication;
  50.  
  51. begin
  52.   LanguageApp.Init('LanguageApp');
  53.   LanguageApp.Run;
  54.   LanguageApp.Done
  55. end.
  56.  
  57.  
  58. {--------------------------------------------------------------
  59.   Copyright (c) 1991 by Tom Swan. All rights reserved.
  60.   Revision 1.00    Date: 4/16/1991
  61. ---------------------------------------------------------------}
  62.